home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
windows
/
fpnl3.zip
/
FPNL3DCU.ZIP
/
FLOATTES.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-08-02
|
1KB
|
71 lines
unit FloatTest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, TFloatPanel, StdCtrls, Buttons;
type
TForm2 = class(TForm)
imgSmall: TImageList;
imgNew: TImageList;
FloatPnl1: TFloatPnl;
FloatPnl2: TFloatPnl;
Button3: TButton;
FloatPnl3: TFloatPnl;
procedure FloatPnl2ButtonClick(Sender: TObject);
procedure FloatPnl2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses ViewToolbars;
{$R *.DFM}
procedure TForm2.FloatPnl2ButtonClick(Sender: TObject);
begin
{ ShowMessage((Sender as TComponent).name);}
end;
procedure TForm2.FloatPnl2Change(Sender: TObject);
begin
ShowMessage((Sender as TComboBox).text);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
floatpnl1.visibleDock := not floatpnl1.visibleDock;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
tflpnl : TFloatpnl;
i : integer;
begin
for i := 0 to ToolbarList.count -1 do
begin
tflpnl := Toolbarlist.items[i];
ShowMessage (tflpnl.caption);
end
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
ShowViewToolbarsDlg;
end;
end.